Program Tp;
uses
    Dos,crt;
    
Const
    MAX_PEDIDOS = 200;

Type
    {$I DataTypes.pas}

    {$I FileManagment.pas}

    {$I ManejoPedidos.pas}
     
    {$I ManejoReparaciones.pas}
    
Var
    NuevoPedidoReparado : PedidoReparado;    
    RepuestoEncontrado : Repuesto;
    I : Integer;
	
Begin

   	CargaRespuestosNecesarios(NuevoPedidoReparado);

	For I := 1 To 10 Do
	Begin
                RepuestoEncontrado := NuevoPedidoReparado.RepuestosUtilizados[I];
	        If RepuestoEncontrado.Codigo <> 0 Then
	        Begin
		        Writeln('-------------Repuesto---',I,'-------');    
		        Writeln('Codigo encontrado : ', RepuestoEncontrado.Codigo);    
		        Writeln('Descripcion encontrado : ', RepuestoEncontrado.Descripcion);    
		        Writeln('Cantid Disponible encontrado : ', RepuestoEncontrado.CantidadDisponible);    
                End;
	End;
	Readln;	    
End.
